<%
function fn_combo(strsql,selecione,selected)
	writeHeader("")
	Dim rscombo
	Dim retorno
	Dim selec
	retorno = ""
	set rscombo = getRs(strsql)
	if selecione = true then
		retorno = retorno & "<option value=''>Selecione</option>"
	end if
	if not rscombo.eof then
		if rscombo.Fields.count <=3 then
			while not rscombo.eof
				checked = ""
				if rscombo.Fields.count = 3 then
					if rscombo(2) = 1 then
						selec = "selected"
					else
						selec = ""
					end if
				else
					if selected = rscombo(0) then
						selec = "selected"
					else
						selec = ""
					end if
				end if
				retorno = retorno & "<option value='"&rscombo(0)&"' "&selec&">"
				retorno = retorno & rscombo(1)
				retorno = retorno & "</option>"
				rscombo.movenext
			wend
		end if
	end if
	rscombo.close
	fn_combo = retorno
end function
%>